home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / game / actio / PaybackUpdate3.lha / PaybackUpdate3 / UpdatePayback-Español < prev    next >
Text File  |  2001-03-21  |  1KB  |  47 lines
  1. ; $VER: Payback Update Version 1.2 (23 February 2001)
  2. ; © James Daniels/Apex Designs
  3.  
  4. (set #installdrawer (cat "Por favor, elija el directorio donde está instalado Payback."))
  5.  
  6. (set #installdrawer-help (cat "Por favor, elija el directorio donde se encuentra la versión completa de Payback que desea actualizar."))
  7.  
  8. (set #notfound (cat "\nEsto no parece ser una instalación válida de Payback.\nPor favor, elija otro directorio."))
  9.  
  10. (set #install-all (cat "Actualizando ficheros..."))
  11.  
  12. (set #finished-message (cat "\nPayback ha sido actualizado con éxito."))
  13.  
  14. (set destdir "RAM:")
  15.  
  16. (while (= (exists (tackon destdir "Payback.exe")) 0)
  17.   (
  18.     (set destdir
  19.       (askdir
  20.         (prompt #installdrawer)
  21.         (help #installdrawer-help)
  22.         (default "RAM:")
  23.         (disk)
  24.       )
  25.     )
  26.  
  27.     (if (= (exists (tackon destdir "Payback.exe")) 0)
  28.       (message #notfound)
  29.     )
  30.   )
  31. )
  32.  
  33. (complete 10)
  34.  
  35. (copyfiles
  36.     (prompt #install-all)
  37.     (source "Files/")
  38.     (pattern "#?")
  39.     (dest destdir)
  40. )
  41.  
  42. (complete 100)
  43.  
  44. (message #finished-message)
  45.  
  46. (set @default-dest destdir)
  47.